home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / CBL / TESTSQA.ALC < prev    next >
Text File  |  1987-11-20  |  2KB  |  44 lines
  1.     TITLE 'TEST SYSTEM QUEUE AREA MEMORY ALLOCATION'
  2. * PGM-ID. TESTSQA.ALC
  3. * AUTHOR. DON HIGGINS.
  4. * DATE.   11/20/87.
  5. * REMARKS.
  6. *           THIS PROGRAM MUST BE LINKED USING L370 OPTION B AND
  7. *           MUST THEN BE CALLED FROM MICRO FOCUS COBOL PROGRAM WITH
  8. *           THE FOLLOWING FULL WORD BINARY ARGUMENTS:
  9. *
  10. *             01 ADDR-MEMORY PIC 9(6) USAGE COMP.
  11. *             01 LENGTH-MEMORY PIC 9(6) USAGE COMP.
  12. *
  13. *           CALL "TESTSQA" USING ADDR-MEMORY LENGTH-MEMORY.
  14. *
  15. *           AT ENTRY TO TEST370 THE 370 REGISTERS ARE SET AS FOLLOWS:
  16. *
  17. *             R1 = ADDRESS OF ADDRESS LIST WITH HIGH BIT SET IN LAST
  18. *                  WORD OF LIST.
  19. *
  20. *             R13 = STANDARD SAVE AREA
  21. *             R14 = RETURN ADDRESS
  22. *             R15 = ENTRY  ADDRESS
  23. *
  24. *           IF SQA MEMORY IS AVAILABLE IN THE RESIDENT EMULATOR REGION,
  25. *           THE ADDRESS OF THE NEXT FREE BLOCK WILL BE RETURNED IN THE
  26. *           FIRST ARGUMENT AND THE LENGTH WILL BE RETURNED IN THE SECOND.
  27. *           THE SECOND ARGUMENT MUST BE SET TO REQUESTED LENGTH BEFORE
  28. *           CALL.  A SHORT BLOCK WILL BE RETURNED IF REQUESTED LENGTH
  29. *           IS NOT AVAILABLE.
  30. *
  31. *
  32. TESTSQA  CSECT              NAME CONTROL SECTION
  33.     USING *,R15        DEFINE BASE REGISER
  34.     LM    R3,R4,0(R1)  LOAD ADDRESS LIST PASSED FROM CALLSQA.CBL
  35.     L     R1,0(R4)     LOAD REQUESTED SQA BLOCK LENGTH IN R1
  36.     SVC   GMAIN        ALLOCATE SQA BLOCK (R0=RC,R1=LENGTH,R2=ADDRESS)
  37.     ST    R1,0(R4)     STORE LENGTH IN LENGTH-MEMORY
  38.     ST    R2,0(R3)     STORE ADDRESS IN ADDR-MEMORY
  39.     LR    R15,R0       SET RETURN CODE
  40.     BR    R14          EXIT VIA RETURN ADDRESS TO DETACH AND CALLSQA
  41.     COPY  CPY\EQUREGS  COPY STANDARD R0-R15 REGISTER EQUATES
  42.     COPY  CPY\EQUSVCS  COPY ALL PC/370 SVC NUMBER EQUATES
  43.     END
  44.